home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Prof page II type.adf / Install / SetUpForInstall < prev    next >
AmigaDOS Script File  |  1990-08-10  |  2KB  |  100 lines
  1. .KEY type
  2. .BRA {
  3. .KET }
  4.  
  5. ;
  6. ; Create our installation directory in RAM:, copy stuff into it, and
  7. ; make some assignments.
  8.  
  9. echo "*N~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*N"
  10. echo " Prepare to install fonts*N"
  11.  
  12. ; Start with a fresh copy of GD_TempDir:, to avoid any screwups
  13. if exists RAM:GD_Install
  14.     delete RAM:GD_Install/#? all quiet
  15. else
  16.     makedir RAM:GD_Install
  17. endif
  18.  
  19. assign GD_TempDir: RAM:GD_Install
  20.  
  21.  
  22. ; Make sure ENV: exists
  23. assign >NIL: exists ENV:            ; First make sure ENV: itself exists
  24. if warn
  25.     failat 21                       ; Protect in case it already exists
  26.     makedir >NIL: RAM:ENV
  27.     failat 10
  28.  
  29.     assign ENV: RAM:ENV             ; This should run unprotected
  30. endif
  31. failat 21
  32. delete >nil: ENV:GDI#? all quiet   ; Don't get fouled up by lingering variables
  33. failat 10
  34.  
  35.  
  36. ; Grab a bunch of stuff from C:
  37.  
  38. if exists C:copy
  39.     copy C:copy      GD_TempDir:
  40. endif
  41. if exists C:if
  42.     copy C:if        GD_TempDir:
  43. endif
  44. if exists C:else
  45.     copy C:else      GD_TempDir:
  46. endif
  47. if exists C:endif
  48.     copy C:endif     GD_TempDir:
  49. endif
  50. if exists C:skip
  51.     copy C:skip      GD_TempDir:
  52. endif
  53. if exists C:lab
  54.     copy C:lab       GD_TempDir:
  55. endif
  56. if exists C:execute
  57.     copy C:execute   GD_TempDir:
  58. endif
  59. if exists C:delete
  60.     copy C:delete    GD_TempDir:
  61. endif
  62. if exists C:echo
  63.     copy C:echo      GD_TempDir:
  64. endif
  65. if exists C:failat
  66.     copy C:failat    GD_TempDir:
  67. endif
  68. if exists C:assign
  69.     copy C:assign    GD_TempDir:
  70. endif
  71. if exists C:makedir
  72.     copy C:makedir   GD_TempDir:
  73. endif
  74. if exists C:cd
  75.     copy C:cd        GD_TempDir:
  76. endif
  77. if exists SYS:system/format
  78.     copy SYS:system/format GD_TempDir:
  79. endif
  80.  
  81.  
  82.  
  83. assign GD_InstOrig: ""              ; Save initial directory
  84. cd GD_TempDir:                      ; Put GD_TempDir: implicitly in path
  85.  
  86. assign GD_SourceDisk: Type:
  87.  
  88.  
  89. ; And some of our own files
  90. copy GD_SourceDisk:Install/UpdateFile         GD_TempDir:
  91. copy GD_SourceDisk:Install/InstUtil           GD_TempDir:
  92.  
  93. echo >ENV:GDIInstallType "{type}"
  94.  
  95. ; Collect version numbers of utility programs
  96. ; instutil -eGDICGTVer version GD_SourceDisk:CGT CGT
  97. ; instutil -eGDICGTIIVer version GD_SourceDisk:CGTII CGTII
  98. ; instutil -eGDICFVer version GD_SourceDisk:CreateFont CreateFont
  99. execute GD_SourceDisk:Install/Versions
  100.